﻿
Partial Class Controles_ControlConsulta
    Inherits System.Web.UI.UserControl

    Protected Sub Controles_ControlConsulta_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim ruta As String = Request.ApplicationPath
        Dim codigo As String = ""
        Dim sUrl As String = Request.Url.Authority()
        sUrl = "http://" + sUrl
        codigo += "<ul class=""menu"">"
        codigo += "<li class=""top""><a href=""" & sUrl & "/Santafe/Consulta/CatGeneral.aspx"" title=""Catalogo General"" class=""top_link""><span>Catalogo General</span></a></li>"
        codigo += "<li class=""top""><a href=""" & sUrl & "/Santafe/Consulta/ConCrias.aspx"" title=""Consulta crias"" class=""top_link""><span>Consulta crias</span></a></li>"
        codigo += "</ul>"
        Literal1.Text = codigo

    End Sub
End Class
